inherited frmCadLanctoLivroCaixa: TfrmCadLanctoLivroCaixa
  Left = 309
  Top = 121
  Width = 688
  Height = 451
  Caption = 'Lan'#231'amento Livro Caixa'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 680
    Height = 398
    ActivePage = tbsEdita
    ClientRectBottom = 393
    ClientRectRight = 675
    inherited tbsLista: TcxTabSheet
      inherited Grid: TcxGrid
        Width = 670
        Height = 348
        inherited GridDBBandedTableView2: TcxGridDBBandedTableView
          object GridDBBandedTableView2CODIGO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CODIGO'
            Position.BandIndex = 0
            Position.ColIndex = 0
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2PRODUTOR: TcxGridDBBandedColumn
            DataBinding.FieldName = 'PRODUTOR'
            Position.BandIndex = 0
            Position.ColIndex = 1
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2TERCEIRO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'TERCEIRO'
            Position.BandIndex = 0
            Position.ColIndex = 2
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2PROPRIEDADE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'PROPRIEDADE'
            Position.BandIndex = 0
            Position.ColIndex = 3
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2CONTA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CONTA'
            Position.BandIndex = 0
            Position.ColIndex = 4
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2HISTORICO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'HISTORICO'
            Position.BandIndex = 0
            Position.ColIndex = 5
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DOCUMENTO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DOCUMENTO'
            Position.BandIndex = 0
            Position.ColIndex = 6
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2VALOR: TcxGridDBBandedColumn
            DataBinding.FieldName = 'VALOR'
            Position.BandIndex = 0
            Position.ColIndex = 7
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME_PRODUTOR: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME_PRODUTOR'
            Position.BandIndex = 0
            Position.ColIndex = 8
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME_TERCEIRO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME_TERCEIRO'
            Position.BandIndex = 0
            Position.ColIndex = 9
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME_CONTA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME_CONTA'
            Position.BandIndex = 0
            Position.ColIndex = 10
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DATA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DATA'
            Position.BandIndex = 0
            Position.ColIndex = 11
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DATA_MOVIMENTO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DATA_MOVIMENTO'
            Position.BandIndex = 0
            Position.ColIndex = 12
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2COD_HISTORICO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'COD_HISTORICO'
            Position.BandIndex = 0
            Position.ColIndex = 13
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2HISTORICO_PADRAO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'HISTORICO_PADRAO'
            Position.BandIndex = 0
            Position.ColIndex = 14
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2MES: TcxGridDBBandedColumn
            DataBinding.FieldName = 'MES'
            Position.BandIndex = 0
            Position.ColIndex = 15
            Position.RowIndex = 0
          end
        end
      end
      inherited Panel1: TPanel
        Width = 670
      end
    end
    inherited tbsEdita: TcxTabSheet
      inherited Panel2: TPanel
        Width = 670
        Height = 365
        object edtCodigo: TcxDBTextEdit
          Left = 8
          Top = 32
          TabStop = False
          DataBinding.DataField = 'CODIGO'
          DataBinding.DataSource = dsRegistro
          Properties.ReadOnly = True
          Style.Color = clInactiveBorder
          TabOrder = 0
          Width = 65
        end
        object cxDBTextEdit3: TcxDBTextEdit
          Left = 320
          Top = 152
          DataBinding.DataField = 'DOCUMENTO'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          TabOrder = 8
          Width = 123
        end
        object cxLabel2: TcxLabel
          Left = 318
          Top = 135
          Caption = 'Documento'
          Transparent = True
        end
        object cxLabel1: TcxLabel
          Left = 8
          Top = 15
          Caption = 'C'#243'digo'
          Transparent = True
        end
        object cxLabel9: TcxLabel
          Left = 8
          Top = 58
          Caption = 'Produtor'
          Transparent = True
        end
        object cbProdutor: TcxDBLookupComboBox
          Left = 8
          Top = 74
          DataBinding.DataField = 'PRODUTOR'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsProdutor
          TabOrder = 3
          Width = 287
        end
        object btnProdutor: TcxButtonEdit
          Left = 295
          Top = 74
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 14
          Text = 'btnProdutor'
          OnClick = btnProdutorClick
          Width = 25
        end
        object cxLabel3: TcxLabel
          Left = 71
          Top = 16
          Caption = 'Data'
          Transparent = True
        end
        object cxDBDateEdit1: TcxDBDateEdit
          Left = 73
          Top = 32
          DataBinding.DataField = 'DATA'
          DataBinding.DataSource = dsRegistro
          Properties.ReadOnly = True
          Style.Color = clInactiveBorder
          TabOrder = 1
          Width = 88
        end
        object cxDBDateEdit2: TcxDBDateEdit
          Left = 162
          Top = 32
          DataBinding.DataField = 'DATA_MOVIMENTO'
          DataBinding.DataSource = dsRegistro
          TabOrder = 2
          Width = 88
        end
        object cxLabel4: TcxLabel
          Left = 160
          Top = 16
          Caption = 'Dt. Movimento'
          Transparent = True
        end
        object btnTerceiro: TcxButtonEdit
          Left = 606
          Top = 74
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 17
          Text = 'btnLogradouro'
          OnClick = btnTerceiroClick
          Width = 25
        end
        object cbTerceiro: TcxDBLookupComboBox
          Left = 320
          Top = 74
          DataBinding.DataField = 'TERCEIRO'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsTerceiro
          TabOrder = 4
          Width = 287
        end
        object cxLabel5: TcxLabel
          Left = 320
          Top = 58
          Caption = 'Terceiro'
          Transparent = True
        end
        object cbPropriedade: TcxDBLookupComboBox
          Left = 8
          Top = 114
          DataBinding.DataField = 'PROPRIEDADE'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsPropriedade
          TabOrder = 5
          Width = 287
        end
        object cxLabel6: TcxLabel
          Left = 8
          Top = 98
          Caption = 'Propriedade'
          Transparent = True
        end
        object btnPropriedade: TcxButtonEdit
          Left = 295
          Top = 114
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 20
          Text = 'btnLogradouro'
          OnClick = btnPropriedadeClick
          Width = 25
        end
        object btnConta: TcxButtonEdit
          Left = 606
          Top = 114
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 21
          Text = 'btnLogradouro'
          OnClick = btnContaClick
          Width = 25
        end
        object cbConta: TcxDBLookupComboBox
          Left = 320
          Top = 114
          DataBinding.DataField = 'CONTA'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end
            item
              FieldName = 'CODIGO_STR'
            end
            item
              FieldName = 'TIPO'
            end>
          Properties.ListSource = dsConta
          TabOrder = 6
          Width = 287
        end
        object cxLabel7: TcxLabel
          Left = 320
          Top = 98
          Caption = 'Conta'
          Transparent = True
        end
        object cxDBCalcEdit1: TcxDBCalcEdit
          Left = 444
          Top = 152
          DataBinding.DataField = 'VALOR'
          DataBinding.DataSource = dsRegistro
          Style.LookAndFeel.Kind = lfOffice11
          Style.ButtonStyle = btsFlat
          StyleDisabled.LookAndFeel.Kind = lfOffice11
          StyleFocused.LookAndFeel.Kind = lfOffice11
          StyleHot.LookAndFeel.Kind = lfOffice11
          TabOrder = 9
          Width = 121
        end
        object cxLabel8: TcxLabel
          Left = 444
          Top = 136
          Caption = 'Valor'
          Transparent = True
        end
        object cxDBMemo1: TcxDBMemo
          Left = 8
          Top = 177
          DataBinding.DataField = 'HISTORICO'
          DataBinding.DataSource = dsRegistro
          TabOrder = 10
          Height = 89
          Width = 622
        end
        object cbHistorico: TcxDBLookupComboBox
          Left = 8
          Top = 152
          DataBinding.DataField = 'COD_HISTORICO'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'DESCRICAO'
            end>
          Properties.ListSource = dsHistorico
          TabOrder = 7
          Width = 287
        end
        object btnHistorico: TcxButtonEdit
          Left = 295
          Top = 152
          TabStop = False
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 24
          Text = 'btnLogradouro'
          OnClick = btnHistoricoClick
          Width = 25
        end
        object cxLabel15: TcxLabel
          Left = 8
          Top = 136
          Caption = 'Hist'#243'rico'
          Transparent = True
        end
      end
    end
  end
  inherited dsPesquisa: TDataSource
    Left = 32
    Top = 300
  end
  inherited dsRegistro: TDataSource
    Left = 80
    Top = 300
  end
  inherited dtEdit: TIBDataSet
    OnNewRecord = dtEditNewRecord
    DeleteSQL.Strings = (
      'delete from livro_caixa'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into livro_caixa'
      
        '  (COD_HISTORICO, CODIGO, CONTA, DATA, DATA_MOVIMENTO, DOCUMENTO' +
        ', HISTORICO, '
      '   PRODUTOR, PROPRIEDADE, TERCEIRO, VALOR)'
      'values'
      
        '  (:COD_HISTORICO, :CODIGO, :CONTA, :DATA, :DATA_MOVIMENTO, :DOC' +
        'UMENTO, '
      '   :HISTORICO, :PRODUTOR, :PROPRIEDADE, :TERCEIRO, :VALOR)')
    RefreshSQL.Strings = (
      'Select * '
      'from livro_caixa '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select * from livro_caixa l'
      'where l.codigo = :codigo')
    ModifySQL.Strings = (
      'update livro_caixa'
      'set'
      '  COD_HISTORICO = :COD_HISTORICO,'
      '  CODIGO = :CODIGO,'
      '  CONTA = :CONTA,'
      '  DATA = :DATA,'
      '  DATA_MOVIMENTO = :DATA_MOVIMENTO,'
      '  DOCUMENTO = :DOCUMENTO,'
      '  HISTORICO = :HISTORICO,'
      '  PRODUTOR = :PRODUTOR,'
      '  PROPRIEDADE = :PROPRIEDADE,'
      '  TERCEIRO = :TERCEIRO,'
      '  VALOR = :VALOR'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_LIVRO_CAIXA_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 80
    Top = 260
    object dtEditCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"LIVRO_CAIXA"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtEditPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      Origin = '"LIVRO_CAIXA"."PRODUTOR"'
      OnValidate = dtEditPRODUTORValidate
    end
    object dtEditTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
      Origin = '"LIVRO_CAIXA"."TERCEIRO"'
    end
    object dtEditPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"LIVRO_CAIXA"."PROPRIEDADE"'
    end
    object dtEditCONTA: TIntegerField
      FieldName = 'CONTA'
      Origin = '"LIVRO_CAIXA"."CONTA"'
    end
    object dtEditHISTORICO: TMemoField
      FieldName = 'HISTORICO'
      Origin = '"LIVRO_CAIXA"."HISTORICO"'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
      Size = 8
    end
    object dtEditDOCUMENTO: TIBStringField
      FieldName = 'DOCUMENTO'
      Origin = '"LIVRO_CAIXA"."DOCUMENTO"'
      Size = 50
    end
    object dtEditVALOR: TIBBCDField
      FieldName = 'VALOR'
      Origin = '"LIVRO_CAIXA"."VALOR"'
      DisplayFormat = '###,##0.00'
      Precision = 18
      Size = 2
    end
    object dtEditDATA: TDateField
      FieldName = 'DATA'
      Origin = '"LIVRO_CAIXA"."DATA"'
    end
    object dtEditDATA_MOVIMENTO: TDateField
      FieldName = 'DATA_MOVIMENTO'
      Origin = '"LIVRO_CAIXA"."DATA_MOVIMENTO"'
    end
    object dtEditCOD_HISTORICO: TIntegerField
      FieldName = 'COD_HISTORICO'
      Origin = '"LIVRO_CAIXA"."COD_HISTORICO"'
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      
        ' select l.*, p.nome nome_produtor, p2.nome nome_terceiro, pl.nom' +
        'e nome_conta, h.descricao historico_padrao,'
      
        '(extract (month from l.data_movimento)||'#39'/'#39'||extract (year from ' +
        'l.data_movimento)) mes'
      'from livro_caixa l'
      'left join produtores p on (l.produtor = p.codigo)'
      'left join produtores p2 on (l.terceiro = p2.codigo)'
      'left join plano_conta pl on (l.conta = pl.codigo)'
      'left join historico H on (l.cod_historico = H.codigo)')
    Left = 32
    Top = 260
    object dtListCODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = '"LIVRO_CAIXA"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtListPRODUTOR: TIntegerField
      DisplayLabel = 'C'#243'd. Produtor'
      FieldName = 'PRODUTOR'
      Origin = '"LIVRO_CAIXA"."PRODUTOR"'
    end
    object dtListTERCEIRO: TIntegerField
      DisplayLabel = 'C'#243'd. Terceiro'
      FieldName = 'TERCEIRO'
      Origin = '"LIVRO_CAIXA"."TERCEIRO"'
    end
    object dtListPROPRIEDADE: TIntegerField
      DisplayLabel = 'C'#243'd. Propriedade'
      FieldName = 'PROPRIEDADE'
      Origin = '"LIVRO_CAIXA"."PROPRIEDADE"'
    end
    object dtListCONTA: TIntegerField
      DisplayLabel = 'C'#243'd. Conta'
      FieldName = 'CONTA'
      Origin = '"LIVRO_CAIXA"."CONTA"'
    end
    object dtListHISTORICO: TMemoField
      DisplayLabel = 'Hist'#243'rico'
      FieldName = 'HISTORICO'
      Origin = '"LIVRO_CAIXA"."HISTORICO"'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
      Size = 8
    end
    object dtListDOCUMENTO: TIBStringField
      DisplayLabel = 'Documento'
      FieldName = 'DOCUMENTO'
      Origin = '"LIVRO_CAIXA"."DOCUMENTO"'
      Size = 50
    end
    object dtListVALOR: TIBBCDField
      DisplayLabel = 'Valor'
      FieldName = 'VALOR'
      Origin = '"LIVRO_CAIXA"."VALOR"'
      DisplayFormat = '###,##0.00'
      Precision = 18
      Size = 2
    end
    object dtListNOME_PRODUTOR: TIBStringField
      DisplayLabel = 'Produtor'
      FieldName = 'NOME_PRODUTOR'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
    object dtListNOME_TERCEIRO: TIBStringField
      DisplayLabel = 'Terceiro'
      FieldName = 'NOME_TERCEIRO'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
    object dtListNOME_CONTA: TIBStringField
      DisplayLabel = 'Conta'
      FieldName = 'NOME_CONTA'
      Origin = '"PLANO_CONTA"."NOME"'
      Size = 50
    end
    object dtListDATA: TDateField
      DisplayLabel = 'Dt. Lancto'
      FieldName = 'DATA'
      Origin = '"LIVRO_CAIXA"."DATA"'
    end
    object dtListDATA_MOVIMENTO: TDateField
      DisplayLabel = 'Dt. Movimento'
      FieldName = 'DATA_MOVIMENTO'
      Origin = '"LIVRO_CAIXA"."DATA_MOVIMENTO"'
    end
    object dtListCOD_HISTORICO: TIntegerField
      DisplayLabel = 'C'#243'd. Historico'
      FieldName = 'COD_HISTORICO'
      Origin = '"LIVRO_CAIXA"."COD_HISTORICO"'
    end
    object dtListHISTORICO_PADRAO: TIBStringField
      DisplayLabel = 'Hist'#243'rico Padr'#227'o'
      FieldName = 'HISTORICO_PADRAO'
      Origin = '"HISTORICO"."DESCRICAO"'
      Size = 50
    end
    object dtListMES: TIBStringField
      DisplayLabel = 'M'#234's'
      FieldName = 'MES'
      ProviderFlags = []
      Size = 13
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    Left = 384
    Top = 372
    DockControlHeights = (
      0
      0
      0
      26)
  end
  inherited ActionList1: TActionList
    Left = 480
    Top = 372
    inherited ActCadLookup: TAction
      OnExecute = ActCadLookupExecute
    end
  end
  inherited dsLink: TDataSource
    Left = 56
    Top = 332
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
    DesignInfo = 524592
  end
  inherited dxBarDBNavigator1: TdxBarDBNavigator
    Left = 360
    Top = 372
  end
  inherited GridPopupMenu: TcxGridPopupMenu
    Left = 336
    Top = 8
  end
  inherited SaveDialog: TSaveDialog
    Left = 414
    Top = 372
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = ACBrEnterTab1
        Properties.Strings = (
          'AboutACBr'
          'AllowDefault'
          'EnterAsTab'
          'Name'
          'Tag')
      end
      item
        Component = Grid
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = GridDBBandedTableView2
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = GridDBBandedTableView2COD_HISTORICO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2CODIGO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2CONTA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2DATA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2DATA_MOVIMENTO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2DOCUMENTO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2HISTORICO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2HISTORICO_PADRAO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2MES
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2NOME_CONTA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2NOME_PRODUTOR
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2NOME_TERCEIRO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2PRODUTOR
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2PROPRIEDADE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2TERCEIRO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2VALOR
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridLevel1
        Properties.Strings = (
          'Caption'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'GridView'
          'ImageIndex'
          'MaxDetailHeight'
          'Name'
          'Options'
          'Styles'
          'Tag'
          'Visible')
      end>
    Left = 448
    Top = 372
  end
  inherited cxIntl1: TcxIntl
    Left = 368
    Top = 60
  end
  object lstProdutores: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p'
      'where p.produtor = '#39'S'#39' and p.ativo = '#39'S'#39)
    Left = 200
    Top = 288
    object lstProdutoresCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutoresNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object dsProdutor: TDataSource
    DataSet = lstProdutores
    Left = 200
    Top = 320
  end
  object dsTerceiro: TDataSource
    DataSet = lstTerceiro
    Left = 232
    Top = 320
  end
  object lstTerceiro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p')
    Left = 232
    Top = 288
    object lstTerceiroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstTerceiroNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstPropriedadeBeforeOpen
    SQL.Strings = (
      'select pp.codigo, pp.nome from propriedade pp'
      'where pp.produtor = :codigo')
    Left = 264
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PROPRIEDADE"."NOME"'
      Size = 50
    end
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 264
    Top = 320
  end
  object dsConta: TDataSource
    DataSet = lstConta
    Left = 296
    Top = 320
  end
  object lstConta: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from plano_conta p'
      
        'where 0 = (select count(*) from plano_conta p2 where p2.codigo_p' +
        'ai = p.codigo)')
    Left = 296
    Top = 288
    object lstContaCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PLANO_CONTA"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstContaCODIGO_STR: TIBStringField
      FieldName = 'CODIGO_STR'
      Origin = '"PLANO_CONTA"."CODIGO_STR"'
      Size = 30
    end
    object lstContaCODIGO_PAI: TIntegerField
      FieldName = 'CODIGO_PAI'
      Origin = '"PLANO_CONTA"."CODIGO_PAI"'
    end
    object lstContaTRIBUTAVEL: TIBStringField
      FieldName = 'TRIBUTAVEL'
      Origin = '"PLANO_CONTA"."TRIBUTAVEL"'
      FixedChar = True
      Size = 1
    end
    object lstContaTIPO: TIBStringField
      FieldName = 'TIPO'
      Origin = '"PLANO_CONTA"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object lstContaNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PLANO_CONTA"."NOME"'
      Size = 50
    end
  end
  object lstParametro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstParametroBeforeOpen
    SQL.Strings = (
      'select * from parametros p'
      'where p.usuario = :usuario')
    Left = 328
    Top = 290
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'usuario'
        ParamType = ptUnknown
      end>
    object lstParametroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PARAMETROS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstParametroUSUARIO: TIntegerField
      FieldName = 'USUARIO'
      Origin = '"PARAMETROS"."USUARIO"'
    end
    object lstParametroDATA_MOVTO: TDateField
      FieldName = 'DATA_MOVTO'
      Origin = '"PARAMETROS"."DATA_MOVTO"'
    end
    object lstParametroOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
      Origin = '"PARAMETROS"."OPERACAO"'
    end
    object lstParametroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      Origin = '"PARAMETROS"."PRODUTOR"'
    end
    object lstParametroTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
      Origin = '"PARAMETROS"."TERCEIRO"'
    end
    object lstParametroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"PARAMETROS"."PROPRIEDADE"'
    end
    object lstParametroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PARAMETROS"."PRODUTO"'
    end
  end
  object lstHistorico: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from historico')
    Left = 358
    Top = 289
    object lstHistoricoCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"HISTORICO"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstHistoricoTIPO_COMPLEM: TIBStringField
      FieldName = 'TIPO_COMPLEM'
      Origin = '"HISTORICO"."TIPO_COMPLEM"'
      FixedChar = True
      Size = 1
    end
    object lstHistoricoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"HISTORICO"."DESCRICAO"'
      Size = 50
    end
  end
  object dsHistorico: TDataSource
    DataSet = lstHistorico
    Left = 358
    Top = 321
  end
end
